home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
hardware
/
inoutbrd.lha
/
in-out-board
/
amos_sources
/
Port_Ausgabe_2.ASC
< prev
next >
Wrap
Text File
|
1995-11-28
|
2KB
|
61 lines
'**************************************************************************
'* *
'* Programm: Port_Ausgabe_2.Amos *
'* *
'* © 1993,94,95 Andreas Heinrich *
'* *
'**************************************************************************
'
'
' Dieses Programm schreibt an Port 3 den Wert der Variable N
' N kann über Input eingegeben werden.
'
'
'**************************************************************************
'
' A=Port selektieren
' N=Wert an diesem Port geben
Global A,N
Hide
'
'
A=3 : Rem Ausgabeport 3 wird ausgewählt -> IC 4
N=0 : Rem Wert 0 in N
'
INIT : Rem Nach dem einschalten einmal aufrufen
'
'**************************** Hauptprogramm *******************************
'
'
'
Do
Print
Print " Gebe eine Zahl ein: ";
'
' Die Zahl sollte natürlich im 8 Bit - Bereich liegen. ( 0 - 255 )
'
Input N
SCHREIBEN
Loop
'
'
'************************** Proceduren ********************************
'
Procedure SCHREIBEN
'
Poke 12570624,248+A : Rem Adresse A selektieren
Poke 12575489,255 : Rem Port als Ausgang schalten
Poke 12574977,N : Rem Wert N schreiben
Poke 12570624,255 : Rem Ready LED einschalten
'
End Proc
'
Procedure INIT
'
Poke 12571136,199 : Rem Busy,P-aus und SEL=Bitmuster Ausgabe
Poke 12570624,255 : Rem Adresse 7 selektieren (Ready LED ein)
Poke 12575489,0 : Rem Port als Eingang schalten
'
End Proc
'